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ENCOUNTER 
REDUCTION OPERATION 



GENERATE CALLBACK ROUTINE 
THAT ENCAPSULATES THE 
REDUCTION OPERATION 



TRANSLATE REDUCTION 
OPERATION INTO CALL TO 
REDUCTION ROUTINE 
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REDUCTION OPERATION 



401 



403 



PROGRAM UNIT 



REDUCTION_ROUTINE(CALLBACKJiOUTINE,...) 
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CALLBACKJOUTINE (VARIABLE 1, VARIABLE 2, ...) 
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f$OMP REDUCE REDUCTION (+:SUM) 

SUM=SUM+SUM1 
!$OMP END REDUCE 
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IF (PERFORM JEDUCTION (SUM1, CALL 
BACKJOUTINE)) THEN 
SUM=SUM+SUM1 
END IF 
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SUBROUTINE CALLBACK ROUTINE (AO, A1) 

REAL AO, A1 

AO^'AO+AI 

RETURN 

END 
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STATIC VOID 

*SAVE_VARJDDRIMAX_NUMJHREADS]; 



BOOL PERFORMJEDUCTION (VOID 
*R£DUCT10N_VAR_ADDR,FUNCTI0N_PTRCALLBACKJ01JTINE) 



{ 



INTU OFFSET, MY THREAD ID; 



MYJHREADJD=GETJ/iyjHREADJDO; 



SAVE_VAR_ADDR[MYJHREADJD] = REDUCTION JAR JDDR; l_ 
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FOR (OFFSET =B;OFFSET<=N; OFFSET *=B) { 
FOR (PARALLEL) (1=0; l<N; I += OFFSET)^: I 
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FOR (J=l+ (OFFSET/B);J < (l+OFFSET);J+=(OFFSEr/B)) { L 
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CALLBACK_ROUTINE (SAVE_VAR_ADDR[IJ, SAVE_VAR_ADDR[J]); 
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IF (MYJHREADJD= =0) RETURN (TRUE); ELSE RETURN (FALSE); jl 
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FIG. 6 
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PROGRAM MAIN 
REAL SUM, ARRAY(1 000) 
INTEGER I 
SUM = 0. 

■!$OMP PARALLEL SHARED (ARRAY) PRIVATE(I) REDUCTION(+:SUM) 
!$OMPDO 

DO 1 = 1. 1000 

SUM = SUM + ARRAY(I) 

END DO 
!$OMPENDDO 
!$OMP END PARALLEL 
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PROGRAM MAIN 




REAL SUM, ARRAY(IOOO) 




INTEGER! 




SUM = 0. 




!$OMP PARALLEL SHARED (ARRAY,SUM) PRIVATE(I,SUM1) 




SUM1 = 0 




!$OMPDO 




DO 1=1, 1000 




SUM1 = SUM1 + ARRAY(I) 




END DO 




/$OMP REDUCE REDUCTION(+:SUM) 




/ SUM = SUM + SUM1 




— / !$OMP END REDUCE. > 




!$OMPENDDO \ 
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!$OMP END PARALLEl\ 



905 



FIG. 9 



PROGRAM MAIN 
EXTERNAL CALLBACK 
REAL SUM, ARRAY(IOO) 
INTEGER I 
SUM^O 

!$OMP PARALLEL SHARED (ARRAY, SUM) PRIVATE(I,SUM1) 
SUM1 = 0. 

!$OMPDO 

DO 1=1, 1000 

SUM1 = SUM1 + ARRAY (I) 
END DO 

IF (PREFORMJEDUCTION (SUM1, CALLBACK)) 
THEN 

SUM = SUM +SUM1 

ENDIF 

!$OMPENDDO 
!$OMP END PARALLEL 
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SUBROUTINE CALLBACK (A0,A1) 

REAL AO, A1 

A0=A0+A1 

RETURN 

END 
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